Устанавливает или возвращает имя тома для указанного накопителя. Чтение/Запись.

object.VolumeName [= newname]

Параметры
object объект типа Drive
newname Необязательный. Если элемент newname задан, он задает новое имя для объекта, указанного в элементе object

Пример
Следующий код иллюстрирует использование VolumeName свойства:

Sub ShowVolumeInfo(drvpath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    s = "Drive " & d.DriveLetter & ": - " & d.VolumeName
    MsgBox s
End Sub